home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / ZIPPED / DOS / EDITORS / ADEDT301.ZIP / ADEDIT.DEF next >
Text File  |  1988-01-18  |  3KB  |  139 lines
  1. ;
  2. ; LOGIMouse C7 Menu for AD-EDIT Editor    ----   01/17/88
  3. ;
  4.  
  5. BEGIN fkeymenu, f9, f10, left, rght, up, down, 10, 18
  6.    CHORDS entr,,,esci
  7.  
  8.  
  9. fkeymenu: popup 1, 1, 23
  10.    Text "╔═══════════════════════════════════════════════════╗"
  11.    Text "║ Help      SaveOld   SaveNew   TopLine   BotmLine  ║"
  12.    text "║ SetTab    ClearTab  NewWindow End+Save  EndNoSave ║"
  13.    text "║ PickUp    GetFile   DOS       PageUp    TopOfFile ║"
  14.    text "║ Find      RptFind   ZOOM      PageDn    EndOfFile ║"
  15.    text "║ PutBack   SavePCP             PageLeft  PageRight ║"
  16.    text "║ EraseEOL            NxtWindow Ins                 ║"
  17.    text "║ Wrap/Not  Caps/Not  Spell@Top                     ║"
  18.    text "║ Change    RptChange Spell@Cur      ╔═════════╗    ║"
  19.    text "║ Open      BreakLine Translate      ║ NOTHING ║    ║"
  20.    text "║ Close     MergeLine TransParm      ╚═════════╝    ║"
  21.    Text "╚═══════════════════════════════════════════════════╝"
  22.  
  23.    select  2, 3,9,f1
  24.    select  3, 3,9,f2
  25.    select  4, 3,9,f3
  26.    select  5, 3,9,f4
  27.    select  6, 3,9,f5
  28.    select  7, 3,9,f6
  29.    select  8, 3,9,f7
  30.    select  9, 3,9,f8
  31.    select 10, 3,9,f9
  32.    select 11, 3,9,f10
  33.  
  34.    select  2,13,9,cf1
  35.    select  3,13,9,cf2
  36.    select  4,13,9,cf3
  37.    select  5,13,9,cf4
  38.    select  6,13,9,cf5
  39.    select  8,13,9,cf7
  40.    select  9,13,9,cf8
  41.    select 10,13,9,cf9
  42.    select 11,13,9,cf10
  43.  
  44.    select  2,23,9,af1
  45.    select  3,23,9,af2
  46.    select  4,23,9,af3
  47.    select  5,23,9,af4
  48.    select  7,23,9,af6
  49.    select  8,23,9,af7
  50.    select  9,23,9,af8
  51.    select 10,23,9,af9
  52.    select 11,23,9,af10
  53.  
  54.    select  2,33,9,home
  55.    select  3,33,9,save
  56.    select  4,33,9,pgup
  57.    select  5,33,9,pgdn
  58.    select  6,33,9,pglft
  59.    select  7,33,9,ins
  60.    select  2,43,9,Chome
  61.    select  3,43,9,nosave
  62.    select  4,43,9,Cpgup
  63.    select  5,43,9,Cpgdn
  64.    select  6,43,9,pgrit
  65.  
  66.    select 10,40,7
  67.  
  68. pend
  69.  
  70. confmenu: popup 8, 25, 23
  71.    Text "                "
  72.    Text " ╔╡Confirmed?╞╗ "
  73.    Text " ║  NO  YES   ║ "
  74.    Text " ╚════════════╝ "
  75.    Text "                "
  76.    select 3, 5, 2,notok
  77.    select 3, 9, 3,ok
  78. pend
  79.  
  80. entr:  type 13
  81. esci:  execute esck, escin
  82. esco:  execute esck, rght, left, escout
  83. esck:  type 27
  84.  
  85. escin:  Chords  ,,,esco
  86. escout: Chords  ,,,esci
  87.  
  88. f1:    type 0, 59
  89. f2:    type 0, 60
  90. f3:    type 0, 61
  91. f4:    type 0, 62
  92. f5:    type 0, 63
  93. f6:    type 0, 64
  94. f7:    type 0, 65
  95. f8:    type 0, 66
  96. f9:    type 0, 67
  97. f10:   type 0, 68
  98. home:  type 0, 71
  99. up:    type 0, 72
  100. pgup:  type 0, 73
  101. left:  type 0, 75
  102. rght:  type 0, 77
  103. end:   type 0, 79
  104. down:  type 0, 80
  105. pgdn:  type 0, 81
  106. ins:   type 0, 82
  107. cf1:   type 0, 94
  108. cf2:   type 0, 95
  109. cf3:   type 0, 96
  110. cf4:   type 0, 97
  111. cf5:   type 0, 98
  112. cf6:   type 0, 99
  113. cf7:   type 0, 100
  114. cf8:   type 0, 101
  115. cf9:   type 0, 102
  116. cf10:  type 0, 103
  117. af1:   type 0, 104
  118. af2:   type 0, 105
  119. af3:   type 0, 106
  120. af4:   type 0, 107
  121. af5:   type 0, 108
  122. af6:   type 0, 109
  123. af7:   type 0, 110
  124. af8:   type 0, 111
  125. af9:   type 0, 112
  126. af10:  type 0, 113
  127. pglft: type 0, 115
  128. pgrit: type 0, 116
  129. cend:  type 0, 117
  130. cpgdn: type 0, 118
  131. chome: type 0, 119
  132. cpgup: type 0, 132
  133.  
  134. nosave: Execute cend, confmenu
  135. save:   Execute end, confmenu
  136.  
  137. ok:     type "Y"
  138. notok:  type "N"
  139.